package Keywords;

use strict;
use warnings;

sub new {
	my $class = shift;
	my $self = { @_ };
	my $keywords_search_engine_name = $self->{Keywords_Search_Engine_Name};
	
	eval "require IMBK::Data::Source::$keywords_search_engine_name";
	
	$self->{Keywords_Search_Engine} = $keywords_search_engine_name->new(%$self);
	
	return bless $self, $class;
};

sub get_keywords {
	my $self = shift;
	my $keywords_search_engine = $self->{Keywords_Search_Engine};
	# my @keywords_source = $keywords_search_engine->get_keywords_source(@_);
}; 

1;